UNIVERSITY OF ILLINOIS 
DIGITAL COMPUTER 



LIBRARY ROUTINE P5 - 37 



TITLE:: 

TYPE: 

NUMBER OF WORDS: 

TEMPORARY STORAGE: 

ACCURACY: 

DURATION: 

PARAMETERS : 

DESCRIPTION: 



NOTES: 



EXAMPLE: 



Print one number in a Parameter Set layout (SADOI Only) 

Closed 

2k 

0, .1 

Prints to n decimal digits with approximate roundoff • 
Determined, solely "by punch speed ~ 25 characters/seconds. 

S3 

Content of 3 "before input of routine — OObF D, D p d^ F. 

A is printed as a sign followed by D-. digits, space, 

Dp digits, space, cL digits, two spaces, and is approximately 

rounded off before being printed. The number added for 

roundoff will lie between ■ 

.36 and .69 x 10" (WV . .5 * 10" < W D 3 } . 

The numbers are printed in a layout consisting of C 

columns. These are grouped into blocks each containing 

b numbers, the blocks being separated, by 2 line feeds. 

1* Locations 3 3 k 3 5 are used during the input of the 

routine . 
2» The carriage is reset during the input of the routine* 
3. By putting address 1023 into the left hand address 

digits of the 23rd word of the routine, a new block 

will be started with the next word printed. 
k. If any of D-.D p or D = 0, the corresponding space 

or spaces are omitted. 
5» The number of characters which can be printed on 

one line is less than 71* 
If the pseudo-order pair which constitutes the preset 
parameter S3 was Ok 1^-F, 33 3F, the numbers would be 
printed in the following arrangement: 



- 2 - 



D l D 2 D 5 
+763 812 321 -162 713 651 +812 587 776 -123 811 512 

+812 563 W 1 +462 871 567 +011 223 668 +102 110 611 

+117 512 713 4kh6 871 060 -000 010 001 -000 001 176 

+600 200 ill -612 510 610 



+712 » . . . second "block begins here. 

All following blocks will be the same shape as the first one. 



RT; 1/23/59 
DAT E July l8 1 1952 



CODED B Y D. J» Wheeler 
CHECKED B Y So F, Best 
APPROVED BY J P.. Nash 



| LOCATION 


ORDER | 


NOTES PAGE 1 




00 KCP5) 
26 1000N 


1 .. , , j 





40 IF 




Plant argument 




L5 12L 


1 

1 


I 


S4 (b-l)F By 6 


: 

Inter 1yd e Plant link. 




4-2 20L 


Inter lude follows * 


2 


40 F 00 3322 
0000 0000 J 


(log !0)/4 

i 


3 


00 F 




Constant used to reset D.O.I* | 




00 2L 




after interlude. I 


4 


4l 4F 
09 IF 


Entry 


i 


5 


10 19F 
L4 JF 




b*l to 1L 


6 


46 >£ 








10 3P- 




-39 1 
c X 2 " to 4F to be used as i 


7 


42 4£ 




I 
J>3*eset parameter. 




oo 1ET 




§|^lit off D . 


8 


oi 4£ 
4o 41* 




| 


9 


01 4f 




Sjjlit off D_> j 




4o % 




I 


10 


01 iap 




Spl^t off D j 




40 6fc 




n 


L4 51* 




i 




L4 4l 




HD^ 2 +D^) x (iog 2 l^)/4 to 5* to i 


12 


10 37** j 




be u$ed ae S3 parameter during 1 




75 2L 




the r^jst of the Input 1 


13 


40 3F 


• . 


1 

* 5 




50 13L < 




Set 2 11 of It to 1. ( 


14 


LI 6L 




i 




36 16L 




1 

-D 5 to Jtj skip if D^ =<0, j 


15 


10 4f 




| 




11 IF 




Set 2" 1 of F^ to Oo 1 


16 


LI 5L 


From l4 ! 


i 

i 




36 18L 




? 

-D 2 ±0 E j skip if D - j 


17 


10 4f 




1 



LOCATION 


ORDER 


ROTES PAGE 2 




11 IF 




Set 2" 1 of Rg to 0. 


18 


LI kL 


From 16 * 






36 20L 




-D. to R 1 skip if D. « 0. 


19 


10 *F 








11 IF 




Set 2* 1 of 1L to 0. 


20 


01 kOF 


From 18* 


Digit layout number to 5F to "be 




ho 5F 




used as preset parameter » 


2 * 


92 129F 
L5 3L 




Carriage return and line feed. 


22 


22 lOl^F 




Return to D.O.I. 




26 kL 




Start interlude. 




26 IN 




End of interlude. 


2 


L5 23L 








IA 12L 






3 


32 ^L 








k 


92 129F 
LI 1L 


, 


Carriage return and 
line feed* 


Block 




k6 23L 


From 3 


^ _ : 


Tallying 


■5 


k2 23L 
00 9F 




Reset block and __ 
column tally. 




6 


00 20F 
32 8L 




Test 2~ 29 




7 
8 


92 129F 

U 16L 
k2 23L 


From 6 f 


Carriage return and 
line feed. 


, Column 
Tallying 




92 961F 




Space 


9 


L5 IF 
36 11L 






10 


92 706F 




- sign 




22 11L 






11 


92 6k2T 

19 S3 


From 9' 


+ sign 


12 


L6 IF 

1+0 IF 




Generate roundoff ~ l/2 


13 


L5 22L 


t 1 


! 



LOCATION 

Ik 

15 
16 

17 
18 

19 
20 
21 
22 

23 



ORDER 

kO F 
50 IF 
75 21L 
00 36*F 
82 k-F 
10 4QF 
S5 S4 
40 IF 

19 5P 
lM F 
52 13L 
92 96U 
00 6f 
32 13L 
22 ( )F 
OOF 
00 10F 
00 F 
00 S5 
89 (^095 )F 
00 ( )F 



From l8*,20 



C stored 
here 



By l 1 



By k> 
By 5, 8 



NOTES 



Set digit tallj 



Times 10 



PAGE 3 



P5 



Print ope 
'decimal digit < 



Space 



Link 



"J 



Sum of 5 shifts left 



Constant 



Digit tally number. 



Tally for block and column. 



